home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / FDEMO03.DFM / FDEMO03.txt next >
Text File  |  1997-12-30  |  7KB  |  313 lines
  1. object Form03: TForm03
  2.   Left = 58
  3.   Top = 163
  4.   Width = 600
  5.   Height = 415
  6.   HorzScrollBar.Visible = False
  7.   VertScrollBar.Visible = False
  8.   Caption = 'Form03'
  9.   Font.Color = clWindowText
  10.   Font.Height = -17
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 120
  14.   Position = poScreenCenter
  15.   TextHeight = 20
  16.   object TabbedNotebook1: TTabbedNotebook
  17.     Left = 16
  18.     Top = 8
  19.     Width = 553
  20.     Height = 325
  21.     TabFont.Color = clBtnText
  22.     TabFont.Height = -13
  23.     TabFont.Name = 'MS Sans Serif'
  24.     TabFont.Style = []
  25.     TabOrder = 0
  26.     object TTabPage
  27.       Left = 5
  28.       Top = 29
  29.       Caption = 'Page 1'
  30.       object Panel1: TPanel
  31.         Left = 272
  32.         Top = 124
  33.         Width = 257
  34.         Height = 161
  35.         BorderStyle = bsSingle
  36.         TabOrder = 0
  37.         object DBImage1: TDBImage
  38.           Left = 1
  39.           Top = 1
  40.           Width = 253
  41.           Height = 157
  42.           Align = alClient
  43.           BorderStyle = bsNone
  44.           DataField = 'Graphic'
  45.           DataSource = DataSource1
  46.           TabOrder = 0
  47.         end
  48.       end
  49.       object DBGrid1: TDBGrid
  50.         Left = 4
  51.         Top = 124
  52.         Width = 261
  53.         Height = 161
  54.         BorderStyle = bsNone
  55.         DataSource = DataSource1
  56.         Font.Color = clBlack
  57.         Font.Height = -17
  58.         Font.Name = 'Arial'
  59.         Font.Style = []
  60.         ParentFont = False
  61.         TabOrder = 1
  62.         TitleFont.Color = clBlack
  63.         TitleFont.Height = -17
  64.         TitleFont.Name = 'Arial'
  65.         TitleFont.Style = []
  66.       end
  67.       object DBEdit1: TDBEdit
  68.         Left = 20
  69.         Top = 4
  70.         Width = 501
  71.         Height = 27
  72.         DataField = 'Common_Name'
  73.         DataSource = DataSource1
  74.         Font.Color = clRed
  75.         Font.Height = -17
  76.         Font.Name = 'Arial'
  77.         Font.Style = [fsBold]
  78.         MaxLength = 30
  79.         ParentFont = False
  80.         TabOrder = 2
  81.       end
  82.       object DBMemo1: TDBMemo
  83.         Left = 4
  84.         Top = 40
  85.         Width = 533
  86.         Height = 77
  87.         Alignment = taCenter
  88.         DataField = 'Notes'
  89.         DataSource = DataSource1
  90.         Font.Color = clNavy
  91.         Font.Height = -15
  92.         Font.Name = 'Arial'
  93.         Font.Style = [fsItalic]
  94.         ParentFont = False
  95.         TabOrder = 3
  96.       end
  97.     end
  98.     object TTabPage
  99.       Left = 5
  100.       Top = 29
  101.       Caption = 'Page 2'
  102.       object Shape1: TShape
  103.         Left = 336
  104.         Top = 20
  105.         Width = 181
  106.         Height = 257
  107.         Brush.Color = clBlue
  108.         Brush.Style = bsCross
  109.         Shape = stRoundRect
  110.       end
  111.       object Image1: TImage
  112.         Left = 136
  113.         Top = 152
  114.         Width = 85
  115.         Height = 101
  116.         Picture.Data = {<image000.bmp>}
  117.       end
  118.       object Memo1: TMemo
  119.         Left = 32
  120.         Top = 32
  121.         Width = 277
  122.         Height = 73
  123.         Alignment = taCenter
  124.         Font.Color = clRed
  125.         Font.Height = -27
  126.         Font.Name = 'Times New Roman'
  127.         Font.Style = []
  128.         Lines.Strings = (
  129.           'Sample TMemo'
  130.           'used in Demo'
  131.           '')
  132.         ParentFont = False
  133.         TabOrder = 0
  134.       end
  135.     end
  136.   end
  137.   object View: TBitBtn
  138.     Left = 20
  139.     Top = 336
  140.     Width = 137
  141.     Height = 33
  142.     Caption = '&View Active Page'
  143.     Font.Color = clBlack
  144.     Font.Height = -15
  145.     Font.Name = 'Arial'
  146.     Font.Style = []
  147.     ParentFont = False
  148.     TabOrder = 1
  149.     OnClick = ViewClick
  150.   end
  151.   object Exit: TBitBtn
  152.     Left = 476
  153.     Top = 336
  154.     Width = 89
  155.     Height = 33
  156.     Caption = '&Exit'
  157.     Font.Color = clBlack
  158.     Font.Height = -15
  159.     Font.Name = 'Arial'
  160.     Font.Style = []
  161.     ParentFont = False
  162.     TabOrder = 2
  163.     OnClick = ExitClick
  164.   end
  165.   object Both: TBitBtn
  166.     Left = 188
  167.     Top = 336
  168.     Width = 89
  169.     Height = 33
  170.     Caption = '&Both'
  171.     Font.Color = clBlack
  172.     Font.Height = -15
  173.     Font.Name = 'Arial'
  174.     Font.Style = []
  175.     ParentFont = False
  176.     TabOrder = 3
  177.     OnClick = BothClick
  178.   end
  179.   object BothBorders: TBitBtn
  180.     Left = 320
  181.     Top = 336
  182.     Width = 141
  183.     Height = 33
  184.     Caption = '&Both with Borders'
  185.     Font.Color = clBlack
  186.     Font.Height = -15
  187.     Font.Name = 'Arial'
  188.     Font.Style = []
  189.     ParentFont = False
  190.     TabOrder = 4
  191.     OnClick = BothBordersClick
  192.   end
  193.   object Memo2: TMemo
  194.     Left = 236
  195.     Top = 48
  196.     Width = 469
  197.     Height = 61
  198.     Alignment = taCenter
  199.     Font.Color = clBlack
  200.     Font.Height = -15
  201.     Font.Name = 'Times New Roman'
  202.     Font.Style = []
  203.     Lines.Strings = (
  204.       'The function GetControlWidth is used to determine the height of'
  205.       'Panel1 and that is used to determine the Y position of Panel2 to'
  206.       'start printing.')
  207.     ParentFont = False
  208.     TabOrder = 5
  209.     Visible = False
  210.   end
  211.   object DataSource1: TDataSource
  212.     DataSet = Table1
  213.     Left = 509
  214.     Top = 11
  215.   end
  216.   object Table1: TTable
  217.     Active = True
  218.     DatabaseName = 'DBDEMOS'
  219.     TableName = 'BIOLIFE.DB'
  220.     Left = 545
  221.     Top = 11
  222.     object Table1SpeciesNo: TFloatField
  223.       FieldName = 'Species No'
  224.     end
  225.     object Table1Category: TStringField
  226.       FieldName = 'Category'
  227.       Size = 15
  228.     end
  229.     object Table1Common_Name: TStringField
  230.       FieldName = 'Common_Name'
  231.       Visible = False
  232.       Size = 30
  233.     end
  234.     object Table1SpeciesName: TStringField
  235.       FieldName = 'Species Name'
  236.       Visible = False
  237.       Size = 40
  238.     end
  239.     object Table1Lengthcm: TFloatField
  240.       FieldName = 'Length (cm)'
  241.       Visible = False
  242.     end
  243.     object Table1Length_In: TFloatField
  244.       FieldName = 'Length_In'
  245.       Visible = False
  246.     end
  247.     object Table1Notes: TMemoField
  248.       FieldName = 'Notes'
  249.       Visible = False
  250.       Size = 50
  251.     end
  252.     object Table1Graphic: TGraphicField
  253.       FieldName = 'Graphic'
  254.       Visible = False
  255.     end
  256.   end
  257.   object DBPrintWin1: TDBPrintWin
  258.     About = 'Version 5.32'
  259.     AboutRegistered = 'TOM SNIDER'
  260.     HeaderFont.Color = clWindowText
  261.     HeaderFont.Height = 16
  262.     HeaderFont.Name = 'Arial'
  263.     HeaderFont.Style = []
  264.     Font.Color = clWindowText
  265.     Font.Height = 16
  266.     Font.Name = 'Arial'
  267.     Font.Style = []
  268.     FooterFont.Color = clWindowText
  269.     FooterFont.Height = 12
  270.     FooterFont.Name = 'Arial'
  271.     FooterFont.Style = []
  272.     FrameObjects = True
  273.     clBtnFaceAsWhite = True
  274.     OutputTo = poViewer
  275.     Orientation = Default
  276.     Units = poInches
  277.     ViewButtonVisible = False
  278.     ShowCancelDialog = True
  279.     LineWidth = 0
  280.     Copies = 1
  281.     GridBackDrop = False
  282.     GridBackDropUnits = poInches
  283.     ZoomPercentage = 25.000000000000000000
  284.     HeaderTop = 0.500000000000000000
  285.     HeaderLeft = 0.500000000000000000
  286.     HeaderStringLeft = '                                  '
  287.     HeaderStringCenter = '                                  '
  288.     HeaderStringRight = '                                  '
  289.     HeaderEnabled = True
  290.     HeaderOutlined = False
  291.     HeaderFilled = False
  292.     TextColor = clBlack
  293.     ViewBkColor = 11234567
  294.     ViewHeading = 'Printit Viewer'
  295.     HeadingColor = clSilver
  296.     FrameStyle = frThin
  297.     FooterTop = 10.510000000000000000
  298.     FooterString = '                                                  '
  299.     FooterEnabled = True
  300.     FooterOutlined = False
  301.     FooterFilled = False
  302.     FixSansSerif = True
  303.     FooterStringLeft = 'Printed on @Date at @Time'
  304.     FooterStringRight = 'Page @Page'
  305.     BorderLeft = 0.500000000000000000
  306.     BorderRight = 0.500000000000000000
  307.     LineSpacing = 2.500000000000000000
  308.     ExecuteWinControl = TabbedNotebook1
  309.     Left = 40
  310.     Top = 16
  311.   end
  312. end
  313.